﻿Public Class frmMegaSena

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim CaixaMegaSena As New Caixa.Loterias.MegaSena
        CaixaMegaSena.MegaSena()
        LabelConcursoNumero.Text = CaixaMegaSena.NumeroConcurso
        LabelValorEstimativaProxSorteio.Text = CaixaMegaSena.EstimativaProxPremio
        LabelDataProxConsurso.Text = CaixaMegaSena.DataProxPremio
        LabelValorAcumalado.Text = CaixaMegaSena.ValorAcumulado
        Label1ValorAcumuladoProxConcurso.Text = CaixaMegaSena.ValorAcumuladoProxCuncurso
        Label1ValorAcumuladoVirada.Text = CaixaMegaSena.ValorAcumuladoSorteiroVirada
        LabelLocalidade.Text = "Realizado em (" & CaixaMegaSena.CidadeSorteio & " - " & CaixaMegaSena.UFSorteio & ") no dia " & CaixaMegaSena.DataSorteio
        LabelNCanhadoresSena.Text = CaixaMegaSena.ContidadeGanhadoresSena
        LabelNCanhadoresQuina.Text = CaixaMegaSena.ContidadeGanhadoresQuina
        LabelNCanhadoresQuadra.Text = CaixaMegaSena.ContidadeGanhadoresQuadra

        LabelNCanhadoresValorSena.Text = CaixaMegaSena.ValorPremioSena
        LabelNCanhadoresValorQuina.Text = CaixaMegaSena.ValorPremioQuina
        LabelNCanhadoresValorQuadra.Text = CaixaMegaSena.ValorPremioQuadra
        LabelValorArrecadecaoTotal.Text = CaixaMegaSena.ValorArrecadacaoTotal


        LabelN1.Text = CaixaMegaSena.N1
        LabelN2.Text = CaixaMegaSena.N2
        LabelN3.Text = CaixaMegaSena.N3
        LabelN4.Text = CaixaMegaSena.N4
        LabelN5.Text = CaixaMegaSena.N5
        LabelN6.Text = CaixaMegaSena.N6

    End Sub

 
End Class
